home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / prfl200.zip / LIST.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-16  |  1KB  |  101 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.  
  26. ;------------------------------------------------------------------------------
  27.  
  28.     If (Exist(PPEPath() + "PROFILE.CFG")) Then
  29.         FOpen 2, PPEPath() + "PROFILE.CFG", 0, 0
  30.         FGet 2, STRING004
  31.         FGet 2, STRING005
  32.         FGet 2, STRING006
  33.         FClose 2
  34.         If (Ferr(1)) Then
  35.             PrintLn "Error opening Configuration File. Inform SysOp Immediately!"
  36.         Endif
  37.     Else
  38.         PrintLn "Configuration file does not exist. This program will not run without"
  39.         PrintLn "the 'PROFILE.CFG' file in the same directory as the 'PROFILE.PPE'."
  40.         End
  41.     Endif
  42.     Newline
  43.     PrintLn "Listing of Callers who have filled out there Profile."
  44.     PrintLn "───────────────────────────────────────────────────────────────────────"
  45.     FOpen 2, STRING006 + "\LIST.DAT", 2, 0
  46.     :LABEL001
  47.     FGet 2, STRING001
  48.     FGet 2, STRING002
  49.     FGet 2, STRING003
  50.     PrintLn Left(STRING001, 25) + Left(STRING002, 25) + Left(STRING003, 25)
  51.     If ((STRING001 == "") || (STRING002 == "")) Then
  52.         End
  53.     Else
  54.         Goto LABEL001
  55.     Endif
  56.     End
  57.  
  58. ;------------------------------------------------------------------------------
  59. ;
  60. ; Usage report (before postprocessing)
  61. ;
  62. ; ■ Statements used :
  63. ;
  64. ;    3       End
  65. ;    6       Goto 
  66. ;    6       PrintLn 
  67. ;    3       If 
  68. ;    2       FOpen 
  69. ;    1       FClose 
  70. ;    6       FGet 
  71. ;    1       Newline
  72. ;
  73. ;
  74. ; ■ Functions used :
  75. ;
  76. ;    5       +
  77. ;    2       ==
  78. ;    3       !
  79. ;    1       ||
  80. ;    3       Left()
  81. ;    1       Ferr()
  82. ;    2       PPEPath()
  83. ;    1       Exist()
  84. ;
  85. ;------------------------------------------------------------------------------
  86. ;
  87. ; Analysis flags : No flag
  88. ;
  89. ;------------------------------------------------------------------------------
  90. ;
  91. ; Postprocessing report
  92. ;
  93. ;    0       For/Next
  94. ;    0       While/EndWhile
  95. ;    3       If/Then or If/Then/Else
  96. ;    0       Select Case
  97. ;
  98. ;------------------------------------------------------------------------------
  99. ;                 AEGiS Corp - Break the routines, code against the machines!
  100. ;------------------------------------------------------------------------------
  101.